From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 19 Aug 2021 09:35:41 +0000 (+0200)
Subject: Don't mutate string literal
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~18^2~1672
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c69b4768d6a8ee57ea5358ae91a33431988b7ba3;p=emacs.git

Don't mutate string literal

* lisp/obsolete/terminal.el (terminal-escape-map): Rewrite loop in a
simpler and more robust way.
---

diff --git a/lisp/obsolete/terminal.el b/lisp/obsolete/terminal.el
index 0167a00066b..fa89b586a0a 100644
--- a/lisp/obsolete/terminal.el
+++ b/lisp/obsolete/terminal.el
@@ -112,10 +112,9 @@ performance."
     nil
   (let ((map (make-sparse-keymap)))
     (define-key map [t] #'undefined)
-    (let ((s "0"))
-      (while (<= (aref s 0) ?9)
-	(define-key map s #'digit-argument)
-	(aset s 0 (1+ (aref s 0)))))
+    (dotimes (i 10)
+      (let ((s (make-string 1 (+ ?0 i))))
+	(define-key map s #'digit-argument)))
     (define-key map "b" #'switch-to-buffer)
     (define-key map "o" #'other-window)
     (define-key map "e" #'te-set-escape-char)